home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Tuned Chord Tester < prev    next >
Text File  |  1998-10-26  |  694b  |  34 lines
  1. (def-orchestra 'orchestra
  2.    all-instruments (piano)
  3.    piano (voice1 voice2 voice3)
  4. )
  5.  
  6. (create-tonality slendro-pentatonic
  7.     '(1/1 8/7 4/3 3/2 7/4))
  8.  
  9. (def-section sect-a
  10.    default
  11.       zone '(2/1)
  12.       tonality (activate-tonality (slendro-pentatonic c 4 4024))
  13.       length '(1/8)
  14.       duration '(1/8)
  15.       velocity '(64)
  16.    voice1
  17.       symbol '(a b c d e f g h   i j k l m n o p)
  18.       channel 1
  19.    voice2
  20.       symbol (symbol-transpose 2 '(a b c d e f g h   i j k l m n o p))
  21.       channel 2
  22.    voice3
  23.       symbol (symbol-transpose 4 '(a b c d e f g h   i j k l m n o p))
  24.       channel 3
  25. )
  26.  
  27. (def-tempo 60)
  28.  
  29. (midiport :printer)
  30.  
  31. (play-file-p "tunings"
  32.    all-instruments '(sect-a)
  33. )
  34.